home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 37
/
Tiger_Disk_037_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
sound 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
228b
|
18 lines
5 rem sound 2
10 fori=54272to54295:pokei,0:next
20 poke54296,15
30 poke54277,8
35 poke54278,255
40 poke54276,21
45 fork=1to15
50 a=20:fory=1to2
60 b=90:poke54273,a
70 fori=1to6
75 poke54287,b
80 b=b*.3
90 a=a*1.1
100 nexti
110 nexty
120 nextk
130 poke54278,15